Option Explicit
Sub C_Sample014()
    Dim myRng As Range
    Dim myFnt As Font
    Set myRng = Range("A1")					'Nxs
    With myRng
        .Clear								'xs檺M
        .Value = "tc"						']wr
    End With
    Set myFnt = myRng.Font
    'ǳƨ즹
    MsgBox "ܧrC"
    myFnt.ColorIndex = 3 						']wC
    'myFnt.Color = RGB(255, 0, 0)				'HRGBȨӰw
    Set myFnt = Nothing						'
    Set myRng = Nothing

    'HUoq{XiH]ΨܧNxs椧rꪺC
    'Range("A1").Font.ColorIndex = 3
End Sub
